home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group99a.txt / 000095_icon-group-sender _Fri Apr 9 08:17:45 1999.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id IAA12257
  4.     for icon-group-addresses; Fri, 9 Apr 1999 08:17:37 -0700 (MST)
  5. Message-Id: <199904091517.IAA12257@baskerville.CS.Arizona.EDU>
  6. From: swampler@noao.edu (Steve Wampler)
  7. Date: Thu, 8 Apr 1999 18:37:14 MST
  8. To: "Hudon, Christian (EXCHANGE:MTL:6X16)" <chudon@americasm01.nt.com>,
  9.         icon-group@optima.CS.Arizona.EDU
  10. Subject: Re: Deep copy in Icon?
  11. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  12. Status: RO
  13.  
  14. > Hi,
  15. > 
  16. > could someone tell me what's wrong with the following snippet of Icon
  17. > code?
  18. > 
  19. > procedure deepcopy(x, t)
  20. >     /t := table()
  21. >     case type(x) of {
  22. >         "list"|"table"|"set"|"record" : {
  23. >             e := t[image(x)]
  24. >             if /e then {
  25. >                 e := copy(x)
  26. >                 t[image(x)] := e
  27. >                 every sub := !e do sub := deepcopy(sub, t)
  28. >                 }
  29. >         return e
  30. >         }
  31. >        default: return x
  32. >     }
  33. > end
  34.  
  35. Hi Christian,
  36.  
  37. This isn't the problem, but you just use t[x] instead of t[image(x)]...
  38.  
  39. Where you're problem shows up is in the "every sub := !e do sub := ..."
  40. line.
  41.  
  42. Immediately after each iteration of "sub := !e" you nicely have
  43. the *value* of the variable sub the same value as in e, but...
  44.  
  45. The assignment of "sub := deepcopy(..." is replacing the value
  46. of sub with a new value, but isn't touching the list e, where
  47. the original value stays untouched.  (i.e. before the assignment,
  48. sub referenced the same value referenced in e, but now the
  49. value of sub references elsewhere).
  50.  
  51. Here's one solution, perhaps someone has a cleaner one:
  52.  
  53. procedure deepcopy(e, t)
  54.  
  55.     /t := table()
  56.     if type(e) == ("list"|"table"|"set"|"record") then {
  57.         e := copy(e)
  58.         every a := e[i := 1 to *e] do {
  59.            /t[a] := deepcopy(a, t)
  60.            e[i] := t[a]
  61.            }
  62.         }
  63.     return e
  64. end
  65.  
  66.  
  67.